home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / tilt11.sit / Tilt 1.1 / background_4104.txt < prev    next >
Text File  |  1988-11-14  |  5KB  |  165 lines
  1. -- background: 4104 from stack: in.1
  2. -- bmap block id: 4476
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7.  
  8.  
  9.  
  10.  
  11.  
  12. -- part 2 (field)
  13. -- low flags: 01
  14. -- high flags: 0002
  15. -- rect: left=113 top=129 right=327 bottom=377
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 0
  19. -- font id: 5
  20. -- text size: 14
  21. -- style flags: 0
  22. -- line height: 18
  23. -- part name: 
  24.  
  25.  
  26. -- part 3 (button)
  27. -- low flags: 00
  28. -- high flags: 0000
  29. -- rect: left=390 top=18 right=43 bottom=492
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: FightOncd10
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   global youFinalVictory
  41.   global oppFinalVictory
  42.   global endIt
  43.   set the lockScreen to true
  44.   put "                                    " into line 1 of field 1
  45.   put "                                    " into line 2 of field 1
  46.   put "                                    " into line 3 of field 1
  47.   put "                                    " into line 4 of field 1
  48.   put "                                    " into line 5 of field 1
  49.   put "                                    " into line 6 of field 1
  50.   put "                                    " into line 7 of field 1
  51.   put "                                    " into line 8 of field 1
  52.   put "                                    " into line 9 of field 1
  53.   put "                                    " into line 10 of field 1
  54.  
  55.   If youFinalVictory = 3  or oppFinalVictory = 3 then decisionTime
  56.   if youFinalVictory <> 3 and oppFinalVictory <> 3 then go to card 2
  57.   if endIt = 1 then go home
  58.  
  59.   global oppGoneFlag
  60.   global youGoneFlag
  61.   global youGoThud
  62.   global oppGoesThud
  63.   global oppLanceWin
  64.   global youLanceWin
  65.   global horseTie
  66.   global LanceTie
  67.   global check
  68.   global oppCheck
  69.   global oppBrokeScore
  70.   global youBrokeScore
  71.   put 0 into check
  72.   put 0 into oppCheck
  73.   put 0 into oppGoneFlag
  74.   put 0 into  youGoneFlag
  75.   put 0 into  youGoThud
  76.   put 0 into  oppGoesThud
  77.   put 0 into  oppLanceWin
  78.   put 0 into  youLanceWin
  79.   put 0 into  horseTie
  80.   put 0 into  LanceTie
  81.   put 0 into youBrokeScore
  82.   put 0 into oppBrokeScore
  83.  
  84. end mouseUp
  85.  
  86.  
  87.  
  88. On decisionTime
  89.  
  90.   set the lockScreen to false
  91.   global yourFinalVictory
  92.   global oppFinalVictory
  93.   global yourThudScore
  94.   global oppThudScore
  95.   global yourCrestScore
  96.   global oppCrestScore
  97.   global yourLances
  98.   global oppLances
  99.  
  100.   -- THE FINAL VICTORY?
  101.   If oppFinalVictory > yourFinalVictory then
  102.     put "  Your Opponent has won" into line 1 of field 1
  103.     put "     the most Jousts" into line 2 of field 1
  104.   end if
  105.   If yourFinalVictory > oppFinalVictory then
  106.     put "    You have won" into line 1 of field 1
  107.     put "   the most Jousts" into line 2 of field 1
  108.   end if
  109.   if yourFinalVictory = oppFinalVictory then
  110.     put "  You have both won" into line 1 of field 1
  111.     put "    equal Jousts" into line 2 of field 1
  112.   end if
  113.   If yourThudScore > oppThudScore then
  114.     put "You have the most unhorsings." into line 3 of field 1
  115.     put "       YOU WIN!!" into line 4 of field 1
  116.     wait for 4 seconds
  117.     go next
  118.   end if
  119.   if oppThudScore > yourThudscore then
  120.     put "  Your Opponent has the" into line 3 of field 1
  121.     put "     most unhorsings. " into line 4 of field 1
  122.     put "  You lose the Tournament." into line 5 of field 1
  123.     show button 3
  124.     show button 1
  125.     show button 2
  126.   end if
  127.   If oppThudScore = yourThudScore and yourCrestScore > oppCrestScore then
  128.     put "  You Win On Crests!" into line 4 of field 1
  129.     wait for 4 seconds
  130.     go next
  131.   end if
  132.   if oppThudScore = yourThudScore and oppCrestScore > yourCrestScore then
  133.     put "  Your Rival Wins on Crests!" into line 4 of field 1
  134.     show button 3
  135.     show button 1
  136.     show button 2
  137.   end if
  138.   if oppThudScore = yourThudScore and oppCrestScore = yourCrestScore and yourLances > oppLances then
  139.     put "  You win on lances broken!" into line 4 of field 1
  140.     wait for 4 seconds
  141.     go next
  142.   end if
  143.   if oppThudScore = yourThudScore and oppCrestScore = yourCrestScore and yourLances < oppLances then
  144.     put "  Your rival wins on lances!" into line 4 of field 1
  145.     show button 3
  146.     show button 1
  147.     show button 2
  148.   end if
  149.   If oppThudScore = yourThudScore and oppCrestScore = yourCrestScore and yourLances = oppLances then
  150.     put "  It is a perfect tie." into line 4 of field 1
  151.     put "  Judges won't tamper" into line 5 of field 1
  152.     put "    with Divine Will." into line 6 of field 1
  153.     put "     You both lose!" into line 7 of field 1
  154.     show button 3
  155.     show button 1
  156.     show button 2
  157.   end if
  158. end decisionTime
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.